set procedure to sospro
set procedure to boxproc
DR1="N:"
F1='COMPANY'
F11='NMCOMP'
DO SIGNIT
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON COMP_CODE TO &DR1&F1
   **DO SIGNI
   **INDE ON COMP_NAME TO &DR1&F11
ENDIF
USE
F1='COMTBL'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON COMP_CODE TO &DR1&F1
ENDIF
set exclu off
USE
